home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / controlloop.s < prev    next >
Text File  |  1997-01-31  |  55KB  |  2,788 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'TKG1:includes/titlescrnraw1',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'TKG2:includes/titlescrnraw1',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43. TITLESCRNPTR: dc.l 0
  44.  
  45.  
  46. ProtValA: dc.l 0
  47. ProtValB: dc.l 0
  48. ProtValC: dc.l 0
  49. ProtValD: dc.l 0
  50. ProtValE: dc.l 0
  51. ProtValF: dc.l 0
  52. ProtValG: dc.l 0
  53. ProtValH: dc.l 0
  54. ProtValI: dc.l 0
  55. ProtValJ: dc.l 0
  56. ProtValK: dc.l 0
  57. ProtValL: dc.l 0
  58. ProtValM: dc.l 0
  59. ProtValN: dc.l 0
  60.  
  61. MASTERPLAYERONEHEALTH:
  62.   dc.w 0
  63.   dc.w 0
  64. MASTERPLAYERONEAMMO:
  65.  ds.w 20
  66.  
  67. MASTERPLAYERONESHIELD:
  68.  dc.w 0
  69.  dc.w 0
  70. MASTERPLAYERONEGUNS:
  71.  dcb.w 10,0
  72.  
  73. MASTERPLAYERTWOHEALTH:
  74.   dc.w 0
  75.   dc.w 0
  76. MASTERPLAYERTWOAMMO:
  77.  ds.w 20
  78.  
  79. MASTERPLAYERTWOSHIELD:
  80.  dc.w 0
  81.  dc.w 0
  82. MASTERPLAYERTWOGUNS:
  83.  dcb.w 10,0
  84.  
  85. KVALTOASC:
  86.         Dc.b    " `  "," 1  "," 2  "," 3  "
  87.         dc.b    " 4  "," 5  "," 6  "," 7  "
  88.         dc.b    " 8  "," 9  "
  89. ; 10
  90.         Dc.b    " 0  "," -  "," +  "," \  "
  91.         dc.b     '    ','    '," Q  "," W  "
  92.         dc.b    " E  "," R  "
  93. ; 20
  94.         Dc.b    " T  "," Y  "," U  "," I  "
  95.         dc.b    " O  "," P  "," [  "," ]  "
  96.         dc.b    '    ','KP1 '
  97. ; 30
  98.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  99.         dc.b    " D  "," F  "," G  "," H  "
  100.         dc.b    " J  "," K  "
  101. ;40
  102.         Dc.b    " L  "," ;  "," #  ",'    '
  103.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  104.         dc.b    '    '," Z  "
  105. ;50
  106.         Dc.b    " X  "," C  "," V  "," B  "
  107.         dc.b    " N  "," M  "," ,  "," .  "
  108.         dc.b     " /  ",'    '
  109. ;60
  110.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  111.         dc.b    'SPC ','<-- ','TAB ','ENT '
  112.         dc.b    'RTN ','ESC '
  113. ;70
  114.         Dc.b    'DEL ','    ','    ','    '
  115.         dc.b    'KP- ','    ','UCK ','DCK '
  116.         dc.b    'RCK ','LCK '
  117. ;80
  118.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  119.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  120.         dc.b    'FK9 ','FK0 '
  121. ;90
  122.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  123.         dc.b    'KP+ ','HLP ','LSH ','RSH '
  124.         dc.b    'CPL ','CTL '
  125. ;100
  126.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  127.         dc.b    '    ','    ','    ','    '
  128.         dc.b    '    ','    '
  129.         Dc.b    '    ','    ','    ','    '
  130.         dc.b    '    ','    ','    ','    '
  131.         dc.b    '    ','    '
  132.  
  133.  even
  134.  
  135. FINISHEDLEVEL: dc.w 0
  136.  
  137. _IntuitionBase: dc.l 0
  138. _GfxBase: dc.l 0
  139. MyScreen: dc.l 0
  140.  
  141. MyNewScreen    dc.w    0,0        left, top
  142.         dc.w    320,16        width, height
  143.         dc.w    1        depth
  144.         dc.b    0,1        pens
  145.         dc.w    0        viewmodes
  146.         dc.w    CUSTOMSCREEN+SCREENQUIET    type
  147.         dc.l    0        font
  148.         dc.l    0    title
  149.         dc.l    0        gadgets
  150.         dc.l    0        bitmap
  151.  
  152.  
  153. INTUITION_REV    equ    31        v1.1
  154. int_name    INTNAME
  155.  even
  156.  
  157. START:
  158.  
  159.  move.b #'n',mors  
  160.  
  161. ************************************88
  162. * TAKE OUT WHEN PLAYING MODULE AGAIN
  163. ********************************
  164. ProtChkBLev1:
  165.     PRSDF
  166.     PRSDE
  167. ************************************
  168.  
  169. ; move.l #PROTCALLENC,a0
  170. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  171. ; move.l #$75055345,d0
  172. ;codeitup:
  173. ; sub.l d0,(a0)+
  174. ; ror.l #1,d0
  175. ; dbra d1,codeitup
  176. ; rts
  177.  
  178. ProtChkCLev1:
  179.  PRSDA
  180.  
  181.  move.w #$7201,titleplanes
  182.  
  183.  move.l 4.w,a6
  184.  move.l #doslibname,a1
  185.  moveq #0,d0
  186.  jsr -552(a6)
  187.  move.l d0,doslib
  188.  
  189.     moveq    #INTUITION_REV,d0    version
  190.     lea    int_name(pc),a1
  191.     CALLEXEC OpenLibrary
  192.     tst.l    d0
  193. ;    beq    exit_false        if failed then quit
  194.     move.l    d0,_IntuitionBase    else save the pointer
  195.  
  196.     lea    MyNewScreen(pc),a0
  197.     
  198.     CALLINT    OpenScreen        open a screen
  199.     tst.l    d0
  200. ;    beq    exit_closeall        if failed the close both, exit
  201.     move.l    d0,MyScreen
  202.  
  203.     CALLINT RethinkDisplay
  204.  
  205.  move.l #LINKname,a0
  206.  jsr LOADAFILE
  207.  move.l d0,LINKFILE
  208.  
  209.  
  210. ; move.l doslib,a6
  211. ; move.l #LINKname,d1
  212. ; move.l #1005,d2
  213. ; jsr -30(a6)
  214. ; move.l d0,LLhandle
  215. ;
  216. ; move.l doslib,a6
  217. ; move.l d0,d1
  218. ; move.l #LINKSPACE,d2
  219. ; move.l #90000,d3
  220. ; jsr -42(a6)
  221. ;
  222. ; move.l doslib,a6
  223. ; move.l LLhandle,d1
  224. ; jsr -36(a6)
  225.  
  226.  
  227.  PRSDS
  228.  jsr stuff
  229.  
  230.  jsr _InitLowLevel
  231.  
  232. ; jsr CLEARTITLEPAL
  233.  
  234. ProtChkDLev1:
  235.  PRSDT
  236.  
  237.  move.w #$20,$dff1dc
  238.  move.l #titlecop,$dff080
  239.  PRSDV
  240.  move.w #$87c0,$dff000+dmacon
  241.  move.w #$8020,$dff000+dmacon
  242. ProtChkMLev1:
  243.  move.w $dff006,d0
  244.  lea RVAL2-100(pc),a0
  245.  add.w d0,100(a0)
  246.  
  247.  bsr GETTITLEMEM
  248. ProtChkELev1:
  249.  PRSDU
  250.  bsr CLROPTSCRN
  251.  
  252.  bsr SETUPTITLESCRN
  253.  
  254. ; jsr _InitPlayer
  255.  
  256. ; move.l #INTROTUNENAME,a0
  257. ; jsr _LoadModule
  258. ; move.l d0,INTROTUNEADDR
  259.  PRSDY
  260. ; move.l d0,a0
  261. ; jsr _InitModule
  262.  
  263. ; move.l INTROTUNEADDR,a0
  264. ; jsr _PlayModule
  265. ProtChkFLev1:
  266.  PRSDa
  267.  move.l #TITLESCRNNAME,TITLESCRNPTR
  268.  bsr LOADTITLESCRN2
  269.  
  270.  FLASHER $0f0,$fff
  271.  
  272. **********************************************
  273.  jsr INITQUEUE
  274. **********************************************
  275.  
  276.  move.w #0,FADEVAL
  277.  move.w #31,FADEAMOUNT
  278.  bsr FADEUPTITLE
  279.  PRSDB
  280.  jsr LOADWALLS
  281.  jsr LOADFLOOR
  282.  jsr LOADOBS
  283.  PRSDZ
  284.  
  285. ; IFNE CD32VER
  286.  PRSDD
  287. ; ENDC
  288.  
  289.  jsr LOAD_SFX
  290. ; jsr _StopPlayer
  291.  PRSDW
  292.  PRSDX
  293. ; jsr _RemPlayer
  294.  
  295.  
  296. ***********************************************
  297.  jsr FLUSHQUEUE
  298. ***********************************************
  299.  
  300.  jsr PATCHSFX
  301.  
  302.  move.w #15,FADEAMOUNT
  303.  bsr FADEDOWNTITLE 
  304.  
  305.  bsr ASKFORDISK
  306.  
  307.  IFNE CD32VER
  308.  move.l doslib,a6
  309.  move.l #115,d1
  310.  jsr -198(a6)
  311.  ENDC
  312.  
  313. ; move.l #newblag,$80
  314. ; trap #0
  315. ; bra JUMPPASTIT
  316. ; rts
  317. ;
  318. ;newblag:
  319.  
  320.  
  321. ProtChkGLev1:
  322. ; bsr PROTSETUP
  323.  bsr DEFAULTGAME
  324.  
  325. ; move.l INTROTUNEADDR,a0
  326. ; jsr _UnLoadModule
  327.  
  328. ; IFEQ CD32VER
  329. ; jsr KInt_Init
  330. ; ENDC
  331. ProtChkHLev1:
  332. ; rte
  333. ;
  334. ;JUMPPASTIT:
  335. ; 
  336.  
  337. BACKTOMENU:
  338.  
  339.  jsr CLEARKEYBOARD
  340.  
  341.  cmp.b #'s',mors
  342.  beq.s BACKTOSLAVE
  343.  cmp.b #'m',mors
  344.  beq.s BACKTOMASTER
  345.  bsr READMAINMENU
  346.  bra DONEMENU
  347. BACKTOMASTER:
  348.  bsr MASTERMENU
  349.  bra DONEMENU
  350. BACKTOSLAVE:
  351.  bsr SLAVEMENU
  352. DONEMENU:
  353.  
  354.  
  355.  bsr WAITREL
  356.  
  357. ; IFEQ CD32VER
  358. ; move.l OLDKINT,$68.w
  359. ; ENDC
  360.  
  361.  
  362.  
  363.  
  364.  bsr CLRSPRITES
  365.  
  366.  move.w #15,FADEAMOUNT
  367.  bsr FADEUPTITLE
  368.  move.w #31,FADEAMOUNT
  369.  bsr FADEDOWNTITLE
  370.  
  371.  move.w #$0201,titleplanes
  372.  
  373.     FILTER
  374.     
  375.  tst.b SHOULDQUIT
  376.  bne QUITTT
  377.  
  378.  bsr RELEASETITLEMEM
  379.  
  380.   
  381. ; jsr LOADBOTPIC
  382.  
  383.   
  384.  clr.b FINISHEDLEVEL
  385.  
  386.  move.w #0,PLR1s_angpos
  387.  move.w #0,PLR2s_angpos
  388.  move.w #0,PLR1_angpos
  389.  move.w #0,PLR2_angpos
  390.  move.b #0,PLR1_GunSelected
  391.  move.b #0,PLR2_GunSelected
  392.  
  393. **************************8
  394.  clr.b NASTY
  395. *************************** 
  396.  
  397.  move.l #MASTERPLAYERONEHEALTH,a0
  398.  move.l #MASTERPLAYERONESHIELD,a1
  399.  move.l #PLAYERONEHEALTH,a2
  400.  move.l #PLAYERONESHIELD,a3
  401.  move.l #PLAYERTWOHEALTH,a4
  402.  move.l #PLAYERTWOSHIELD,a5
  403.  
  404.  REPT 11 
  405.  move.l (a0),(a2)+
  406.  move.l (a0)+,(a4)+
  407.  ENDR
  408.  
  409.  REPT 6 
  410.  move.l (a1),(a3)+
  411.  move.l (a1)+,(a5)+
  412.  ENDR
  413.  
  414. *************************************
  415. ; jsr INITQUEUE
  416.  
  417. ; move.l #MEMF_CHIP,TYPEOFMEM
  418. ; move.l #bordername,a0
  419. ; move.l #scrn,d0
  420. ; move.l #0,d1
  421. ; jsr QUEUEFILE
  422.  
  423. ; ifeq CHEESEY
  424. ; move.l #bordername,a0
  425. ; move.l #scrn2,d0
  426. ; move.l #0,d1
  427. ; jsr QUEUEFILE
  428. ; endc 
  429.  
  430. ; jsr FLUSHQUEUE
  431.  
  432. ; ifne CHEESEY
  433. ; 
  434. ; move.l scrn,scrn2
  435. ; 
  436. ; endc
  437.  
  438. ************************************* 
  439.  
  440.     jsr PLAYTHEGAME
  441.     
  442. *************************************
  443. ; move.l scrn,a1
  444. ; move.l #10240*8,d0
  445. ; move.l 4.w,a6
  446. ; jsr -210(a6)
  447. ; ifeq CHEESEY
  448. ; move.l scrn2,a1
  449. ; move.l #10240*8,d0
  450. ; move.l 4.w,a6
  451. ; jsr -210(a6)
  452. ; endc
  453. *************************************
  454.  
  455. ; bsr FREEBOTMEM 
  456.  
  457. ; bra QUITTT
  458.  
  459.  tst.b FINISHEDLEVEL
  460.  beq dontusestats
  461.  
  462.  move.l #MASTERPLAYERONEHEALTH,a0
  463.  move.l #MASTERPLAYERONESHIELD,a1
  464.  move.l #PLAYERONEHEALTH,a2
  465.  move.l #PLAYERONESHIELD,a3
  466.  
  467.  REPT 11 
  468.  move.l (a2)+,(a0)+
  469.  ENDR
  470.  
  471.  REPT 6 
  472.  move.l (a3)+,(a1)+
  473.  ENDR
  474.  
  475. dontusestats:
  476.  
  477. ; bsr PASSLINETOGAME
  478. ; bsr GETSTATS
  479.  
  480.  bsr GETTITLEMEM
  481.  bsr CLROPTSCRN
  482.  bsr SETUPTITLESCRN
  483.  
  484.  move.l #TITLESCRNNAME2,TITLESCRNPTR
  485.  bsr LOADTITLESCRN2
  486.  move.w #$7201,titleplanes
  487.  
  488.  move.w #$20,$dff1dc
  489.  move.l #titlecop,$dff080
  490.  move.w #$87c0,$dff000+dmacon
  491.  move.w #$8020,$dff000+dmacon 
  492.  
  493.  move.w #0,FADEVAL
  494.  move.w #31,FADEAMOUNT
  495.  bsr FADEUPTITLE
  496.  
  497.  move.w #15,FADEAMOUNT
  498.  bsr FADEDOWNTITLE 
  499.  
  500. ; IFEQ CD32VER
  501. ; jsr KInt_Init
  502. ; ENDC
  503.  
  504.  bra BACKTOMENU
  505.  
  506. QUITTT:
  507.  
  508.  move.l LEVELDATA,d1
  509.  move.l d1,a1
  510.  move.l #120000,d0
  511.  move.l 4.w,a6
  512.  jsr -210(a6)
  513.  
  514.  move.l TEXTSCRN,d1
  515.  move.l d1,a1
  516.  move.l #10240*2,d0
  517.  move.l 4.w,a6
  518.  jsr -210(a6)
  519.  
  520.  move.l FASTBUFFER,d1    
  521.  move.l #2*320*256,d0
  522.  move.l 4.w,a6
  523.  jsr -210(a6)
  524.  
  525. ; jsr RELEASEWALLMEM
  526.  jsr RELEASESAMPMEM
  527.  jsr RELEASEFLOORMEM
  528.  jsr RELEASEOBJMEM
  529.   
  530.  move.l old,$dff080
  531.  move.l 4.w,a6
  532.  lea VBLANKInt,a1
  533.  moveq #INTB_COPER,d0
  534.  jsr _LVORemIntServer(a6)
  535.  
  536.  move.l 4.w,a6
  537.  lea KEYInt,a1
  538.  moveq #INTB_PORTS,d0
  539.  jsr _LVORemIntServer(a6)
  540.  
  541.  move.w #$f8e,$dff1dc
  542.  
  543.  move.l old,$dff080
  544.  move.w _storeint,d0
  545.  or.w d0,$dff000+intena
  546.  
  547. ; move.l    4.w,a6
  548. ; jsr    _LVOPermit(a6)
  549.  
  550.  
  551.  move.l #0,d0
  552.  
  553.  rts
  554.  
  555. SSTACK: dc.l 0
  556.  
  557. bordername: dc.b "TKG2:includes/newborderRAW",0
  558.  even
  559.  
  560. ; KEY OPTIONS:
  561. CONTROLBUFFER:
  562. turn_left_key:
  563.  dc.b $4f
  564. turn_right_key:
  565.  dc.b $4e
  566. forward_key:
  567.  dc.b $4c
  568. backward_key:
  569.  dc.b $4d
  570. fire_key:
  571.  dc.b $65
  572. operate_key:
  573.  dc.b $40
  574. run_key:
  575.  dc.b $61
  576. force_sidestep_key:
  577.  dc.b $67
  578. sidestep_left_key:
  579.  dc.b $39
  580. sidestep_right_key:
  581.  dc.b $3a
  582. duck_key:
  583.  dc.b $22
  584. look_behind_key:
  585.  dc.b $28
  586. jump_key:
  587.  dc.b $f
  588. look_up_key:
  589.  dc.b 27
  590. look_down_key:
  591.  dc.b 42
  592.  
  593.  
  594. templeftkey: dc.b 0
  595. temprightkey: dc.b 0
  596. tempslkey: dc.b 0 
  597. tempsrkey: dc.b 0
  598.  
  599.  even 
  600.  
  601. GETSTATS:
  602. ; CHANGE PASSWORD INTO RAW DATA
  603.  
  604.  rts
  605.  
  606.  
  607. SETPLAYERS:
  608.  
  609.  move.w PLOPT,d0
  610.  add.b #'a',d0
  611.  move.b d0,LEVA
  612.  move.b d0,LEVB
  613.  move.b d0,LEVC
  614.  move.b d0,LEVD
  615.  move.b d0,LEVE
  616.  
  617.  cmp.b #'s',mors
  618.  beq SLAVESETUP
  619.  cmp.b #'m',mors
  620.  beq MASTERSETUP
  621.  st NASTY
  622. onepla:
  623.  rts
  624.  
  625. NASTY: dc.w 0
  626.  
  627. MASTERSETUP:
  628.  clr.b NASTY
  629.  move.w PLOPT,d0
  630.  jsr SENDFIRST
  631.  
  632.  move.w Rand1,d0
  633.  jsr SENDFIRST
  634.  
  635.  bsr TWOPLAYER
  636.  rts
  637.  
  638. SLAVESETUP:
  639.  CLR.B NASTY
  640.  jsr RECFIRST
  641.  move.w d0,PLOPT
  642.  add.b #'a',d0
  643.  move.b d0,LEVA
  644.  move.b d0,LEVB
  645.  move.b d0,LEVC
  646.  move.b d0,LEVD
  647.  move.b d0,LEVE
  648.  
  649.  jsr RECFIRST
  650.  move.w d0,Rand1
  651.  bsr TWOPLAYER
  652.  
  653.  
  654.  rts
  655.      
  656. ********************************************************
  657.  
  658. ASKFORDISK:
  659.  lea RVAL1+300(pc),a0
  660.  lea RVAL2+900(pc),a1
  661.  PRSDD
  662.  move.w #10,OptScrn
  663.  bsr DRAWOPTSCRN
  664.  
  665. ProtChkNLev1:
  666. .wtrel:
  667.  btst #7,$bfe001
  668.  beq.s .wtrel
  669.  
  670. wtclick:
  671.  add.w #$235,-300(a0)
  672.  add.w #$4533,-900(a0)
  673.  btst #6,$bfe001
  674.  bne.s wtclick
  675.  
  676.  rts
  677.  
  678. CLRSPRITES: 
  679.  move.l #nullspr,d0
  680.  move.w d0,tsp0l
  681.  move.w d0,tsp1l
  682.  move.w d0,tsp2l
  683.  move.w d0,tsp3l
  684.  move.w d0,tsp4l
  685.  move.w d0,tsp5l
  686.  move.w d0,tsp6l
  687.  move.w d0,tsp7l
  688.  swap d0
  689.  move.w d0,tsp0h
  690.  move.w d0,tsp1h
  691.  move.w d0,tsp2h
  692.  move.w d0,tsp3h
  693.  move.w d0,tsp4h
  694.  move.w d0,tsp5h
  695.  move.w d0,tsp6h
  696.  move.w d0,tsp7h 
  697.  rts
  698.  
  699. ********************************************************
  700.  
  701. READMAINMENU:
  702.  
  703.  
  704.  move.b #'n',mors
  705.  
  706.  move.w MAXLEVEL,d0
  707.  
  708.  move.l #CURRENTLEVELLINE,a1
  709.  muls #40,d0
  710.  move.l LINKFILE,a0
  711.  add.l #LevelName,a0
  712.  add.l d0,a0
  713.  bsr PUTINLINE
  714.  
  715. ; Stay here until 'play game' is selected.
  716.  
  717.  move.w #0,OptScrn
  718.  bsr DRAWOPTSCRN
  719.  move.w #0,OPTNUM
  720.  
  721.  bsr HIGHLIGHT
  722.  
  723.  
  724.  
  725.  bsr WAITREL
  726. .rdlop:
  727.  
  728.  bsr CHECKMENU
  729.  tst.w d0
  730.  blt.s .rdlop
  731.  
  732.  
  733. ; tst.w d0
  734. ; bne.s .nonextlev
  735. ; move.w LEVELSELECTED,d0
  736. ; add.w #1,d0
  737. ; cmp.w MAXLEVEL,d0
  738. ; blt .nowrap
  739. ; moveq #0,d0
  740. ;.nowrap:
  741. ; and.w #$f,d0
  742. ; move.w d0,LEVELSELECTED
  743. ; move.l #CURRENTLEVELLINE,a1
  744. ; muls #40,d0
  745. ; move.l #LEVEL_OPTS,a0
  746. ; add.l d0,a0
  747. ; bsr PUTINLINE
  748. ; bsr JUSTDRAWIT
  749. ; bra .rdlop
  750.  
  751. .nonextlev:
  752.  
  753.  cmp.w #1,d0
  754.  bne .noopt
  755.  
  756.  bra MASTERMENU
  757.  
  758. .noopt:
  759.  
  760. ; cmp.w #5,d0
  761. ; bne.s .noqui
  762. ; st SHOULDQUIT
  763. ; bra playgame
  764. ;.noqui
  765.  
  766.  cmp.w #2,d0
  767.  beq playgame
  768.  
  769.  cmp.w #3,d0
  770.  bne .nocontrol
  771.  
  772.  bsr CHANGECONTROLS
  773.  
  774.  move.w #0,OptScrn
  775.  bsr DRAWOPTSCRN
  776.  move.w #0,OPTNUM
  777.  
  778.  bsr HIGHLIGHT
  779.  
  780.  bsr WAITREL
  781.  bra .rdlop
  782.  
  783. .nocontrol:
  784.  
  785.  cmp.w #4,d0
  786.  bne .nocred
  787.  bsr SHOWCREDITS
  788.  move.w #0,OptScrn
  789.  bsr DRAWOPTSCRN
  790.  move.w #1,OPTNUM
  791.  
  792.  bsr HIGHLIGHT
  793.  
  794.  bsr WAITREL
  795.  bra .rdlop
  796.  
  797. .nocred:
  798.  
  799.  cmp.w #5,d0
  800.  bne .noload
  801.  
  802.  bsr WAITREL
  803.  
  804.  jsr LOADPOSITION
  805.  
  806.  move.w #0,OptScrn
  807.  bsr DRAWOPTSCRN
  808.  move.w #1,OPTNUM
  809.  
  810.  bsr HIGHLIGHT
  811.  
  812.  bsr WAITREL
  813.  bra .rdlop
  814.  
  815. .noload:
  816.  cmp.w #6,d0
  817.  bne playgame
  818.  bsr WAITREL
  819.  
  820.  jsr SAVEPOSITION
  821.  
  822.  move.w #0,OptScrn
  823.  bsr DRAWOPTSCRN
  824.  move.w #1,OPTNUM
  825.  
  826.  bsr HIGHLIGHT
  827.  
  828.  bsr WAITREL
  829.  bra .rdlop
  830.  
  831.  
  832. ;
  833. ; move.l #PASSWORDLINE+12,a0
  834. ; moveq #15,d2
  835. ;.clrline:
  836. ; move.b #32,(a0)+
  837. ; dbra d2,.clrline 
  838. ; move.w #0,OptScrn
  839. ; bsr DRAWOPTSCRN
  840. ;
  841. ; IFEQ CD32VER
  842. ; clr.b lastpressed
  843. ; move.l #PASSWORDLINE+12,a0
  844. ; move.w #0,d1
  845. ;.ENTERPASS:
  846. ; tst.b lastpressed
  847. ; beq .ENTERPASS
  848. ; move.b lastpressed,d2
  849. ; move.b #0,lastpressed
  850. ; move.l #KVALTOASC,a1
  851. ; 
  852. ; cmp.l #'<-- ',(a1,d2.w*4)
  853. ; bne .nodel
  854. ;
  855. ; tst.b d1
  856. ; beq .nodel
  857. ;
  858. ; subq #1,d1
  859. ; move.b #32,-(a0)
  860. ; movem.l d0-d7/a0-a6,-(a7)
  861. ; bsr JUSTDRAWIT
  862. ; movem.l (a7)+,d0-d7/a0-a6
  863. ; bra .ENTERPASS
  864. ;
  865. ;.nodel:
  866. ; 
  867. ; cmp.l #'RTN ',(a1,d2.w*4)
  868. ; beq .FORGETIT
  869. ; cmp.l #'ESC ',(a1,d2.w*4)
  870. ; beq .FORGETIT
  871. ; move.b 1(a1,d2.w*4),d2
  872. ; cmp.b #65,d2
  873. ; blt .ENTERPASS
  874. ; cmp.b #'Z',d2
  875. ; bgt .ENTERPASS
  876. ; move.b d2,(a0)+
  877. ; move.w #0,OptScrn
  878. ; movem.l d0-d7/a0-a6,-(a7)
  879. ; bsr JUSTDRAWIT
  880. ; movem.l (a7)+,d0-d7/a0-a6
  881. ; add.w #1,d1
  882. ; cmp.w #16,d1
  883. ; blt .ENTERPASS
  884. ;
  885. ; ENDC
  886. ; IFNE CD32VER
  887. ; move.l #PASSWORDLINE+12,a0
  888. ; move.w #15,d0
  889. ;.ENTERPASS:
  890. ; bsr GETACHAR
  891. ; dbra d0,.ENTERPASS
  892. ; ENDC
  893. ;
  894. ; bsr PASSLINETOGAME
  895. ; tst.w d0
  896. ; bne .FORGETIT
  897. ; 
  898. ; bsr GETSTATS
  899. ; move.w MAXLEVEL,d0
  900. ; move.l #CURRENTLEVELLINE,a1
  901. ; muls #40,d0
  902. ; move.l #LEVEL_OPTS,a0
  903. ; add.l d0,a0
  904. ; bsr PUTINLINE
  905. ;
  906. ;.FORGETIT:
  907. ; bsr WAITREL
  908. ; bsr CALCPASSWORD
  909. ;
  910. ; move.w #0,OptScrn
  911. ; bsr DRAWOPTSCRN
  912. ;
  913. ; move.w #1,OPTNUM
  914. ;
  915. ; bsr HIGHLIGHT
  916. ;
  917. ; bra .rdlop 
  918.  
  919. playgame:
  920.  move.w MAXLEVEL,PLOPT
  921.  rts
  922.  
  923. SHOULDQUIT: dc.w 0
  924.  
  925. LEVELSELECTED:
  926.  dc.w 0
  927.  
  928.  IFNE CD32VER
  929. GETACHAR:
  930.  moveq #0,d7
  931.  move.b #'A',(a0)
  932.  movem.l d0-d7/a0-a6,-(a7)
  933.  jsr JUSTDRAWIT
  934.  movem.l (a7)+,d0-d7/a0-a6
  935.  
  936. .wtnum:
  937.  btst #1,$dff00c
  938.  sne d1
  939.  btst #1,$dff00d
  940.  sne d2
  941.  btst #0,$dff00c
  942.  sne d3
  943.  btst #0,$dff00d
  944.  sne d4
  945.  
  946.  eor.b d1,d3
  947.  eor.b d2,d4
  948.  
  949.  tst.b d1
  950.  beq.s .NODELETE
  951.  cmp.w #15,d0
  952.  beq.s .NODELETE
  953.  move.b #32,(a0)
  954.  subq #1,a0
  955.  addq #1,d0
  956.  move.b (a0),d7
  957.  sub.b #'A',d7
  958.  movem.l d0-d7/a0-a6,-(a7)
  959.  jsr JUSTDRAWIT
  960.  movem.l (a7)+,d0-d7/a0-a6
  961.  jsr WAITFORNOPRESS
  962.  bra .wtnum
  963. .NODELETE
  964.  
  965.  tst.b d4
  966.  bne.s .PREVNUM
  967.  tst.b d3
  968.  bne.s .NEXTNUM
  969.  btst #7,$bfe001
  970.  bne.s .wtnum
  971.  addq #1,a0
  972.  jsr WAITFORNOPRESS
  973.  rts
  974.  
  975. .PREVNUM:
  976.  subq #1,d7
  977.  bge.s .nonegg
  978.  moveq #15,d7
  979. .nonegg:
  980.  move.b d7,d1
  981.  add.b #'A',d1
  982.  move.b d1,(a0)
  983.  movem.l d0-d7/a0-a6,-(a7)
  984.  jsr JUSTDRAWIT
  985.  movem.l (a7)+,d0-d7/a0-a6
  986.  
  987.  jsr WAITFORNOPRESS
  988.  
  989.  bra .wtnum
  990.  
  991. .NEXTNUM:
  992.  addq #1,d7
  993.  cmp.w #15,d7
  994.  ble.s .nobigg
  995.  moveq #0,d7
  996. .nobigg:
  997.  move.b d7,d1
  998.  add.b #'A',d1
  999.  move.b d1,(a0)
  1000.  movem.l d0-d7/a0-a6,-(a7)
  1001.  jsr JUSTDRAWIT
  1002.  movem.l (a7)+,d0-d7/a0-a6
  1003.  jsr WAITFORNOPRESS
  1004.  bra .wtnum
  1005.  rts
  1006.  ENDC
  1007.  
  1008.  
  1009. MASTERMENU:
  1010.  
  1011.  move.b #'m',mors
  1012.  
  1013.  move.w #0,LEVELSELECTED
  1014.  
  1015.  move.w #0,d0 
  1016.  move.l #CURRENTLEVELLINEM,a1
  1017.  muls #40,d0
  1018.  move.l #LEVEL_OPTS,a0
  1019.  add.l d0,a0
  1020.  bsr PUTINLINE
  1021.  
  1022. ; Stay here until 'play game' is selected.
  1023.  
  1024.  move.w #4,OptScrn
  1025.  bsr DRAWOPTSCRN
  1026.  move.w #1,OPTNUM
  1027.  
  1028.  bsr HIGHLIGHT
  1029.  
  1030.  bsr WAITREL
  1031. .rdlop:
  1032.  bsr CHECKMENU
  1033.  tst.w d0
  1034.  blt.s .rdlop
  1035.  bsr WAITREL
  1036.  
  1037.  cmp.w #1,d0
  1038.  bne.s .nonextlev
  1039.  
  1040.  move.w LEVELSELECTED,d0
  1041.  add.w #1,d0
  1042.  cmp.w MAXLEVEL,d0
  1043.  blt .nowrap
  1044.  moveq #0,d0
  1045. .nowrap:
  1046. ; and.w #$f,d0
  1047.  move.w d0,LEVELSELECTED
  1048.  move.l #CURRENTLEVELLINEM,a1
  1049.  muls #40,d0
  1050.  move.l #LEVEL_OPTS,a0
  1051.  add.l d0,a0
  1052.  bsr PUTINLINE
  1053.  bsr JUSTDRAWIT
  1054.  bra .rdlop
  1055.  
  1056. .nonextlev:
  1057.  
  1058.  cmp.w #2,d0
  1059.  beq .playgame
  1060.  
  1061.  cmp.w #0,d0
  1062.  bne .noopt
  1063.  
  1064.  bra SLAVEMENU
  1065.  
  1066. .noopt:
  1067.  
  1068.  cmp.w #3,d0
  1069.  bne .nocontrol
  1070.  
  1071.  bsr CHANGECONTROLS
  1072.  
  1073.  move.w #4,OptScrn
  1074.  bsr DRAWOPTSCRN
  1075.  move.w #0,OPTNUM
  1076.  
  1077.  bsr HIGHLIGHT
  1078.  
  1079.  bsr WAITREL
  1080.  bra .rdlop
  1081.  
  1082. .nocontrol:
  1083.  
  1084. .playgame
  1085.  
  1086.  move.w LEVELSELECTED,PLOPT
  1087.  rts
  1088.  
  1089. SLAVEMENU:
  1090.  
  1091.  move.b #'s',mors
  1092.  
  1093. ; Stay here until 'play game' is selected.
  1094.  
  1095.  move.w #5,OptScrn
  1096.  bsr DRAWOPTSCRN
  1097.  move.w #1,OPTNUM
  1098.  
  1099.  bsr HIGHLIGHT
  1100.  
  1101.  bsr WAITREL
  1102. .rdlop:
  1103.  bsr CHECKMENU
  1104.  tst.w d0
  1105.  blt.s .rdlop
  1106.  bsr WAITREL
  1107.  
  1108.  cmp.w #1,d0
  1109.  beq .playgame
  1110.  
  1111.  cmp.w #0,d0
  1112.  bne .noopt
  1113.  
  1114.  bra READMAINMENU
  1115.  
  1116. .noopt:
  1117.  
  1118.  cmp.w #2,d0
  1119.  bne .nocontrol
  1120.  
  1121.  bsr CHANGECONTROLS
  1122.  
  1123.  move.w #0,OptScrn
  1124.  bsr DRAWOPTSCRN
  1125.  move.w #0,OPTNUM
  1126.  
  1127.  bsr HIGHLIGHT
  1128.  
  1129.  bsr WAITREL
  1130.  bra .rdlop
  1131.  
  1132. .nocontrol:
  1133. .playgame:
  1134.  
  1135.  rts
  1136.  
  1137. TWOPLAYER:
  1138.  
  1139.  move.w #200,PLAYERONEHEALTH
  1140.  move.w #200,PLAYERTWOHEALTH
  1141.  
  1142.  st.b PLAYERONEGUNS+1
  1143.  st.b PLAYERONEGUNS+3
  1144.  st.b PLAYERONEGUNS+5
  1145.  st.b PLAYERONEGUNS+7
  1146.  st.b PLAYERONEGUNS+9
  1147.  st.b PLAYERONEGUNS+11
  1148.  
  1149.  st.b PLAYERTWOGUNS+1
  1150.  st.b PLAYERTWOGUNS+3
  1151.  st.b PLAYERTWOGUNS+5
  1152.  st.b PLAYERTWOGUNS+7
  1153.  st.b PLAYERTWOGUNS+9
  1154.  st.b PLAYERTWOGUNS+11
  1155.  
  1156.  move.l #PLAYERONEAMMO,a0
  1157.  move.l #PLAYERTWOAMMO,a1
  1158.  move.w #9,d1
  1159. .putinvals
  1160.  jsr GetRand
  1161.  and.w #63,d0
  1162.  add.w #5,d0
  1163.  move.w d0,(a0)+
  1164.  move.w d0,(a1)+
  1165.  dbra d1,.putinvals
  1166.  
  1167.  rts
  1168.  
  1169.  move.w #0,OldEnergy
  1170.  move.w #127,Energy
  1171.  jsr EnergyBar
  1172.  
  1173.  move.w #63,OldAmmo
  1174.  move.w #0,Ammo
  1175.  jsr AmmoBar
  1176.  move.w #0,OldAmmo
  1177.  
  1178.  move.b #0,PLR1_GunSelected
  1179.  
  1180.  move.b #0,PLR2_GunSelected
  1181.  rts
  1182.  
  1183. newdum:
  1184.  rts
  1185.  
  1186. DEFAULTGAME:
  1187.  move.w #0,MAXLEVEL
  1188.  
  1189.  move.l #MASTERPLAYERONEHEALTH,a0
  1190.  move.l #MASTERPLAYERONESHIELD,a1
  1191.  move.l #0,(a0)+
  1192.  move.l #0,(a0)+
  1193.  move.l #0,(a0)+
  1194.  move.l #0,(a0)+
  1195.  move.l #0,(a0)+
  1196.  move.l #0,(a0)+
  1197.  move.l #0,(a0)+
  1198.  move.l #0,(a0)+
  1199.  move.l #0,(a0)+
  1200.  move.l #0,(a0)+
  1201.  move.l #0,(a0)+
  1202.  
  1203.  move.l #0,(a1)+
  1204.  move.l #0,(a1)+
  1205.  move.l #0,(a1)+
  1206.  move.l #0,(a1)+
  1207.  move.l #0,(a1)+
  1208.  move.l #0,(a1)+
  1209.  
  1210.  move.w #200,MASTERPLAYERONEHEALTH
  1211.  move.w #$ff,MASTERPLAYERONEGUNS
  1212.  
  1213.  move.l LINKFILE,a5
  1214.  add.l #GunBulletTypes,a5
  1215.  move.w (a5),d0
  1216.  
  1217.  move.l #MASTERPLAYERONEAMMO,a5
  1218.  move.w #20,(a5,d0.w*2)
  1219.  
  1220.  rts
  1221.  
  1222. CHKPROT: dc.w 0
  1223.  
  1224. GETPARITY:
  1225.  move.w #6,d3
  1226. .calcparity:
  1227.  btst d3,d0
  1228.  beq.s .nochange
  1229.  bchg #7,d0
  1230. .nochange:
  1231.  dbra d3,.calcparity
  1232.  rts
  1233.  
  1234. CHECKPARITY:
  1235.  move.w #6,d3
  1236.  move.b #$0,d2
  1237. .calcparity:
  1238.  btst d3,d0
  1239.  beq.s .nochange
  1240.  bchg #7,d2
  1241. .nochange:
  1242.  dbra d3,.calcparity
  1243.  move.b d0,d1
  1244.  and.b #$80,d1
  1245.  eor.b d1,d2
  1246.  sne.s d5
  1247.  rts
  1248.  
  1249. CALCPASSWORD:
  1250.  rts
  1251.  
  1252. PASSLINETOGAME:
  1253.  rts
  1254.  
  1255. illega:
  1256.  
  1257.  move.w #-1,d0
  1258.  
  1259.  rts
  1260.  
  1261. PASSBUFFER:
  1262.  ds.b 8
  1263.  
  1264. CHECKBUFFER: ds.b 8
  1265.  
  1266. PASS:
  1267.  ds.b 16
  1268.  
  1269. **************************************************
  1270.  
  1271. CHANGECONTROLS:
  1272.  
  1273.  move.w #6,OptScrn
  1274.  bsr DRAWOPTSCRN
  1275.  move.w #0,OPTNUM
  1276.  bsr HIGHLIGHT
  1277.  bsr WAITREL
  1278.  
  1279. .rdlop:
  1280.  bsr CHECKMENU
  1281.  tst.w d0
  1282.  blt.s .rdlop
  1283.  
  1284.  cmp.w #15,d0
  1285.  beq .backtomain
  1286.  
  1287.  move.l #KEY_LINES,a0
  1288.  move.w d0,d1
  1289.  muls #40,d1
  1290.  add.l d1,a0
  1291.  add.w #32,a0
  1292.  move.l #$20202020,(a0)
  1293.  movem.l d0/a0,-(a7)
  1294.  bsr JUSTDRAWIT
  1295.  movem.l (a7)+,d0/a0 
  1296.  
  1297.  clr.b lastpressed
  1298.  
  1299. .wtkey
  1300.  tst.b lastpressed
  1301.  beq .wtkey
  1302.  
  1303.  move.l #CONTROLBUFFER,a1
  1304.  moveq #0,d1
  1305.  move.b lastpressed,d1
  1306.  move.b d1,(a1,d0.w)
  1307.  move.l #KVALTOASC,a1
  1308.  move.l (a1,d1.w*4),(a0)
  1309.  bsr JUSTDRAWIT
  1310.  bsr WAITREL
  1311.  bra .rdlop
  1312.  
  1313. .backtomain:
  1314.  rts
  1315.  
  1316. **************************************************
  1317.  
  1318.  
  1319. MAXLEVEL: dc.w 0
  1320.  
  1321. SHOWCREDITS:
  1322.  move.w #2,OptScrn
  1323.  bsr DRAWOPTSCRN
  1324.  move.w #0,OPTNUM
  1325.  bsr HIGHLIGHT
  1326.  
  1327.  bsr WAITREL
  1328.  
  1329. .rdlop:
  1330.  bsr CHECKMENU
  1331.  tst.w d0
  1332.  blt.s .rdlop
  1333.  
  1334.  bra READMAINMENU
  1335.  
  1336. HELDDOWN:
  1337.  dc.w 0
  1338.  
  1339. WAITREL:
  1340.  
  1341.  movem.l d0/d1/d2/d3,-(a7)
  1342.  
  1343.  move.l #KeyMap,a5
  1344. WAITREL2:
  1345.  btst #7,$bfe001
  1346.  beq.s WAITREL2
  1347.  
  1348.  IFEQ CD32VER
  1349.  tst.b $40(a5)
  1350.  bne.s WAITREL2
  1351.  tst.b $44(a5)
  1352.  bne.s WAITREL2
  1353.  tst.b $4c(a5)
  1354.  bne.s WAITREL2
  1355.  tst.b $4d(a5)
  1356.  bne.s WAITREL2
  1357.  ENDC
  1358.  
  1359.  btst #1,$dff00c
  1360.  sne d0
  1361.  btst #1,$dff00d
  1362.  sne d1
  1363.  btst #0,$dff00c
  1364.  sne d2
  1365.  btst #0,$dff00d
  1366.  sne d3
  1367.  
  1368.  eor.b d0,d2
  1369.  eor.b d1,d3
  1370.  tst.b d2
  1371.  bne.s WAITREL2
  1372.  tst.b d3
  1373.  bne.s WAITREL2
  1374.  
  1375.  
  1376.  movem.l (a7)+,d0/d1/d2/d3
  1377.  rts
  1378.  
  1379. PUTINLINE:
  1380.  moveq #39,d0
  1381. pill
  1382.  move.b (a0)+,(a1)+
  1383.  dbra d0,pill
  1384.  rts
  1385.  
  1386. CHECKMENU:
  1387.  btst #1,$dff00c
  1388.  sne d0
  1389.  btst #1,$dff00d
  1390.  sne d1
  1391.  btst #0,$dff00c
  1392.  sne d2
  1393.  btst #0,$dff00d
  1394.  sne d3
  1395.  
  1396.  eor.b d0,d2
  1397.  eor.b d1,d3
  1398.  
  1399.  move.l #KeyMap,a5
  1400.  move.b $4c(a5),d0
  1401.  move.b $4d(a5),d1
  1402.  or.b d1,d3
  1403.  or.b d0,d2
  1404.  
  1405.  move.w OptScrn,d0
  1406.  move.l #MENUDATA,a0
  1407.  move.l 4(a0,d0.w*8),a0    ; opt data
  1408.  
  1409.  move.w OPTNUM,d0
  1410.  
  1411.  tst.b d2
  1412.  beq.s NOPREV
  1413.  
  1414.  
  1415.  sub.w #1,d0
  1416.  bge.s NOPREV
  1417.  
  1418.  move.w #0,d0 
  1419.  
  1420. NOPREV:
  1421.  
  1422.  tst.b d3
  1423.  beq.s NONEXT
  1424.  
  1425.  bsr WAITREL
  1426.  
  1427.  add.w #1,d0
  1428.  tst.w (a0,d0.w*8)
  1429.  bge.s NONEXT
  1430.  
  1431.  subq #1,d0
  1432.  
  1433. NONEXT:
  1434.  
  1435.  cmp.w OPTNUM,d0
  1436.  beq.s .nochange
  1437.  
  1438.  bsr HIGHLIGHT
  1439.  move.w d0,OPTNUM
  1440.  bsr HIGHLIGHT
  1441.  bsr WAITREL
  1442.  
  1443. .nochange:
  1444.  
  1445.  move.w #-1,d0
  1446.  
  1447.  btst #7,$bfe001
  1448.  beq.s select
  1449.  move.b $40(a5),d1
  1450.  or.b $44(a5),d1
  1451.  tst.b d1
  1452.  beq.s noselect
  1453.  
  1454. select:
  1455.  bsr WAITREL
  1456.  move.w OPTNUM,d0
  1457. noselect:
  1458.  
  1459.  rts
  1460.  
  1461. HIGHLIGHT:
  1462.  
  1463.  SAVEREGS
  1464.  
  1465.  move.w OptScrn,d0
  1466.  move.l #MENUDATA,a0
  1467.  move.l 4(a0,d0.w*8),a0
  1468.  move.w OPTNUM,d0
  1469.  lea (a0,d0.w*8),a0
  1470.  move.w (a0)+,d0    ;left
  1471.  move.w (a0)+,d1    ;top
  1472.  move.w (a0)+,d2    ;width
  1473.  
  1474.  muls #16*8,d1
  1475.  move.l OPTSPRADDR,a1
  1476.  add.w d1,a1
  1477.  add.w #8+16,a1
  1478.  move.l #SCRTOSPR2,a5
  1479.  adda.w d0,a5
  1480.  adda.w d0,a5
  1481.  
  1482. NOTLOP:
  1483.  
  1484.  move.w (a5)+,d3
  1485.  lea (a1,d3.w),a2
  1486.  not.b (a2)
  1487.  not.b 16(a2)
  1488.  not.b 32(a2)
  1489.  not.b 48(a2)
  1490.  not.b 64(a2)
  1491.  not.b 80(a2)
  1492.  not.b 96(a2)
  1493.  not.b 112(a2)
  1494.  not.b 128(a2)
  1495.  subq #1,d2
  1496.  bgt.s NOTLOP
  1497.  
  1498.  GETREGS
  1499.  rts
  1500.  
  1501. SCRTOSPR2:
  1502. val SET 0
  1503.  REPT 6
  1504.  dc.w val+0
  1505.  dc.w val+1
  1506.  dc.w val+2
  1507.  dc.w val+3
  1508.  dc.w val+4
  1509.  dc.w val+5
  1510.  dc.w val+6
  1511.  dc.w val+7
  1512. val SET val+258*16
  1513.  ENDR
  1514.  
  1515. CLROPTSCRN:
  1516.  
  1517.  move.l #$2cdfea,d0
  1518.  move.w (a4,d0.l),d0
  1519.  add.w d0,RVAL2
  1520.  
  1521.  move.l OPTSPRADDR,a0
  1522.  lea 16(a0),a1
  1523.  lea 16+(258*16)(a0),a2
  1524.  lea 16+(258*16*2)(a0),a3
  1525.  lea 16+(258*16*3)(a0),a4
  1526.  lea 258*16(a4),a0
  1527.  
  1528.  move.w #256,d0
  1529.  moveq #0,d1
  1530. CLRLOP:
  1531.  move.l d1,(a0)+
  1532.  move.l d1,(a0)+
  1533.  move.l d1,(a0)+
  1534.  move.l d1,(a0)+
  1535.  move.l d1,(a1)+
  1536.  move.l d1,(a1)+
  1537.  move.l d1,(a1)+
  1538.  move.l d1,(a1)+
  1539.  move.l d1,(a2)+
  1540.  move.l d1,(a2)+
  1541.  move.l d1,(a2)+
  1542.  move.l d1,(a2)+
  1543.  move.l d1,(a3)+
  1544.  move.l d1,(a3)+
  1545.  move.l d1,(a3)+
  1546.  move.l d1,(a3)+
  1547.  move.l d1,(a4)+
  1548.  move.l d1,(a4)+
  1549.  move.l d1,(a4)+
  1550.  move.l d1,(a4)+
  1551.  dbra d0,CLRLOP
  1552.  
  1553.  move.l OPTSPRADDR,a0
  1554.  move.w #44*256+64,(a0)
  1555.  move.w #44*256+2,8(a0)
  1556.  add.l #258*16,a0
  1557.  
  1558.  move.w #44*256+96,(a0)
  1559.  move.w #44*256+2,8(a0)
  1560.  add.l #258*16,a0
  1561.  
  1562.  move.w #44*256+128,(a0)
  1563.  move.w #44*256+2,8(a0)
  1564.  add.l #258*16,a0
  1565.  
  1566.  move.w #44*256+160,(a0)
  1567.  move.w #44*256+2,8(a0)
  1568.  add.l #258*16,a0
  1569.  
  1570.  move.w #44*256+192,(a0)
  1571.  move.w #44*256+2,8(a0)
  1572.  
  1573.  rts
  1574.  
  1575. DRAWOPTSCRN:
  1576.  
  1577.  bsr CLROPTSCRN
  1578.  
  1579. JUSTDRAWIT:
  1580.  
  1581.  move.l #font,a0
  1582.  move.l #MENUDATA,a1
  1583.  move.w OptScrn,d0
  1584.  move.l (a1,d0.w*8),a1
  1585.  
  1586.  move.l OPTSPRADDR,a3
  1587.  add.l #16,a3
  1588.  moveq #0,d2
  1589.  
  1590.  move.w #31,d0
  1591. linelop:
  1592.  move.w #39,d1
  1593.  move.l #SCRTOSPR,a4
  1594.  move.l a3,a2
  1595. charlop:
  1596.  move.b (a1)+,d2
  1597.  lea (a0,d2.w*8),a5
  1598.  move.b (a5)+,(a2)
  1599.  move.b (a5)+,16(a2)
  1600.  move.b (a5)+,32(a2)
  1601.  move.b (a5)+,48(a2)
  1602.  move.b (a5)+,64(a2)
  1603.  move.b (a5)+,80(a2)
  1604.  move.b (a5)+,96(a2)
  1605.  move.b (a5),112(a2)
  1606.  add.w (a4)+,a2
  1607.  dbra d1,charlop
  1608.  add.w #16*8,a3
  1609.  dbra d0,linelop
  1610.  
  1611.  rts
  1612.   
  1613. SCRTOSPR:
  1614.  dc.w 1,1,1,1,1,1,1,258*16-7
  1615.  dc.w 1,1,1,1,1,1,1,258*16-7
  1616.  dc.w 1,1,1,1,1,1,1,258*16-7
  1617.  dc.w 1,1,1,1,1,1,1,258*16-7
  1618.  dc.w 1,1,1,1,1,1,1,258*16-7
  1619.  dc.w 1,1,1,1,1,1,1,258*16-7
  1620.   
  1621. OPTNUM: dc.w 0
  1622. OptScrn: dc.w 0
  1623.  
  1624. SAVEGAMENAME: dc.b "tkg2:boot.dat",0
  1625.  even
  1626.  
  1627. SAVEGAMEPOS: dc.l 0
  1628. SAVEGAMELEN: dc.l 0
  1629.  
  1630. LOADPOSITION: 
  1631.  
  1632.  move.l #SAVEGAMENAME,a0
  1633.  move.l #SAVEGAMEPOS,d0
  1634.  move.l #SAVEGAMELEN,d1
  1635.  jsr INITQUEUE
  1636.  jsr QUEUEFILE
  1637.  jsr FLUSHQUEUE
  1638.  
  1639.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1640.  
  1641.  move.l #LSLOTA,a4
  1642.  
  1643.  move.l a2,a3
  1644.  move.w #5,d7
  1645. .findlevs:
  1646.  
  1647.  move.l a4,a1
  1648.  move.w (a3),d1
  1649.  muls #40,d1
  1650.  move.l LINKFILE,a0
  1651.  add.l #LevelName,a0
  1652.  add.l d1,a0
  1653.  jsr PUTINLINE
  1654.  add.l #80,a4
  1655.  add.w #2+(22*2)+(12*2),a3
  1656.  
  1657.  dbra d7,.findlevs
  1658.  
  1659.  move.w #8,OptScrn
  1660.  move.w #0,OPTNUM
  1661.  
  1662.  bsr DRAWOPTSCRN
  1663.  bsr HIGHLIGHT
  1664.  bsr WAITREL
  1665.  
  1666. .rdlop:
  1667.  bsr CHECKMENU
  1668.  tst.w d0
  1669.  blt.s .rdlop
  1670.  
  1671.  cmp.w #6,d0
  1672.  beq.s .noload
  1673.  
  1674.  move.l SAVEGAMEPOS,a0
  1675.  muls #2+(22*2)+(12*2),d0
  1676.  add.l d0,a0
  1677.  
  1678.  move.l #MASTERPLAYERONEHEALTH,a1
  1679.  move.w (a0)+,MAXLEVEL
  1680.  
  1681.  REPT 11
  1682.  move.l (a0)+,(a1)+
  1683.  ENDR
  1684.  REPT 6
  1685.  move.l (a0)+,(a1)+
  1686.  ENDR
  1687.  
  1688.  move.w MAXLEVEL,d0
  1689.  move.l #CURRENTLEVELLINE,a1
  1690.  muls #40,d0
  1691.  move.l LINKFILE,a0
  1692.  add.l #LevelName,a0
  1693.  add.l d0,a0
  1694.  bsr PUTINLINE
  1695.  
  1696. .noload:
  1697.  
  1698.  move.l SAVEGAMEPOS,a1
  1699.  move.l SAVEGAMELEN,d0
  1700.  CALLEXEC FreeMem
  1701.  
  1702.  rts
  1703.  
  1704. SAVEPOSITION:
  1705.  
  1706.  
  1707.  move.l #SAVEGAMENAME,a0
  1708.  move.l #SAVEGAMEPOS,d0
  1709.  move.l #SAVEGAMELEN,d1
  1710.  jsr INITQUEUE
  1711.  jsr QUEUEFILE
  1712.  jsr FLUSHQUEUE
  1713.  
  1714.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1715.  
  1716.  move.l #SSLOTA,a4
  1717.  
  1718.  move.l a2,a3
  1719.  move.w #5,d7
  1720. .findlevs:
  1721.  
  1722.  move.l a4,a1
  1723.  move.w (a3),d1
  1724.  muls #40,d1
  1725.  move.l LINKFILE,a0
  1726.  add.l #LevelName,a0
  1727.  add.l d1,a0
  1728.  jsr PUTINLINE
  1729.  add.l #80,a4
  1730.  add.w #2+(22*2)+(12*2),a3
  1731.  
  1732.  dbra d7,.findlevs
  1733.  
  1734.  move.w #9,OptScrn
  1735.  move.w #0,OPTNUM
  1736.  
  1737.  bsr DRAWOPTSCRN
  1738.  bsr HIGHLIGHT
  1739.  bsr WAITREL
  1740.  
  1741. .rdlop:
  1742.  bsr CHECKMENU
  1743.  tst.w d0
  1744.  blt.s .rdlop
  1745.  
  1746.  cmp.w #6,d0
  1747.  beq .nosave
  1748.  
  1749.  move.l SAVEGAMEPOS,a0
  1750.  muls #2+(22*2)+(12*2),d0
  1751.  add.l d0,a0
  1752.  
  1753.  move.l #MASTERPLAYERONEHEALTH,a1
  1754.  move.w MAXLEVEL,(a0)+
  1755.  
  1756.  REPT 11
  1757.  move.l (a1)+,(a0)+
  1758.  ENDR
  1759.  REPT 6
  1760.  move.l (a1)+,(a0)+
  1761.  ENDR
  1762.   
  1763.  move.l old,$dff080
  1764.  move.w #$8020,$dff000+intena
  1765.  
  1766.  move.l _IntuitionBase,a6
  1767.  jsr _LVORethinkDisplay(a6)
  1768.  
  1769.  move.l doslib,a6
  1770.  move.l #SAVEGAMENAME,d1
  1771.  move.l #1006,d2
  1772.  jsr -30(a6)
  1773.  move.l d0,handle
  1774.  
  1775.  move.l doslib,a6
  1776.  move.l SAVEGAMEPOS,d2
  1777.  move.l handle,d1
  1778.  move.l SAVEGAMELEN,d3
  1779.  jsr _LVOWrite(a6)
  1780.  
  1781.  move.l doslib,a6
  1782.  move.l handle,d1
  1783.  jsr -36(a6)
  1784.  
  1785.  move.l doslib,a6
  1786.  move.l #200,d1
  1787.  jsr -198(a6) 
  1788.  
  1789.  move.w #$0020,$dff000+intena
  1790.  move.l #titlecop,$dff080
  1791.   
  1792. .nosave:
  1793.  
  1794.  move.l SAVEGAMEPOS,a1
  1795.  move.l SAVEGAMELEN,d0
  1796.  CALLEXEC FreeMem
  1797.  
  1798.  rts
  1799.  
  1800. MENUDATA:
  1801. ;0
  1802.  dc.l ONEPLAYERMENU_TXT
  1803.  dc.l ONEPLAYERMENU_OPTS
  1804. ;1
  1805.  dc.l INSTRUCTIONS_TXT
  1806.  dc.l INSTRUCTIONS_OPTS
  1807. ;2
  1808.  dc.l CREDITMENU_TXT
  1809.  dc.l CREDITMENU_OPTS
  1810. ;3
  1811.  dc.l ASKFORDISK_TXT
  1812.  dc.l ASKFORDISK_OPTS
  1813. ;4
  1814. ; dc.l ONEPLAYERMENU_TXT
  1815. ; dc.l ONEPLAYERMENU_OPTS
  1816.  dc.l MASTERPLAYERMENU_TXT
  1817.  dc.l MASTERPLAYERMENU_OPTS
  1818. ;5
  1819.  dc.l SLAVEPLAYERMENU_TXT
  1820.  dc.l SLAVEPLAYERMENU_OPTS
  1821. ;6
  1822.  dc.l CONTROL_TXT
  1823.  dc.l CONTROL_OPTS
  1824. ;7
  1825.  dc.l PROTMENU_TXT
  1826.  dc.l CONTROL_OPTS
  1827. ;8
  1828.  dc.l LOADMENU_TXT
  1829.  dc.l LOADMENU_OPTS
  1830. ;9
  1831.  dc.l SAVEMENU_TXT
  1832.  dc.l SAVEMENU_OPTS
  1833. ;10
  1834.  dc.l LEVELDISK_TXT
  1835.  dc.l ASKFORDISK_OPTS
  1836.  
  1837.  
  1838. EMPTYSLOTNAME:
  1839. ;      0123456789012345678901234567890123456789
  1840.  dc.b '               EMPTY SLOT               ' 
  1841.  
  1842. LOADMENU_TXT: 
  1843. ;      0123456789012345678901234567890123456789
  1844.  dc.b '                                        ' ;0
  1845.  dc.b '                                        ' ;1
  1846.  dc.b '                                        ' ;2
  1847.  dc.b '                                        ' ;3
  1848.  dc.b '         LOAD A SAVED POSITION:         ' ;4
  1849.  dc.b '                                        ' ;5
  1850.  dc.b '                                        ' ;6
  1851.  dc.b '                                        ' ;7
  1852.  dc.b '                                        ' ;8
  1853. LSLOTA:
  1854.  dc.b '                                        ' ;9
  1855.  dc.b '                                        ' ;0
  1856. LSLOTB:
  1857.  dc.b '                                        ' ;1
  1858.  dc.b '                                        ' ;2
  1859. LSLOTC:
  1860.  dc.b '                                        ' ;3
  1861.  dc.b '                                        ' ;4
  1862. LSLOTD:
  1863.  dc.b '                                        ' ;5
  1864.  dc.b '                                        ' ;6
  1865. LSLOTE:
  1866.  dc.b '                                        ' ;7
  1867.  dc.b '                                        ' ;8
  1868. LSLOTF:
  1869.  dc.b '                                        ' ;9
  1870.  dc.b '                                        ' ;0
  1871.  dc.b '               * CANCEL *               ' ;1
  1872.  dc.b '                                        ' ;2
  1873.  dc.b '                                        ' ;3
  1874.  dc.b '                                        ' ;4
  1875.  dc.b '                                        ' ;5
  1876.  dc.b '                                        ' ;6
  1877.  dc.b '                                        ' ;7
  1878.  dc.b '                                        ' ;8
  1879.  dc.b '                                        ' ;9
  1880.  dc.b '                                        ' ;0
  1881.  dc.b '                                        ' ;1
  1882.  
  1883. LOADMENU_OPTS:
  1884.  dc.w 0,9,40,1
  1885.  dc.w 0,11,40,1
  1886.  dc.w 0,13,40,1
  1887.  dc.w 0,15,40,1
  1888.  dc.w 0,17,40,1
  1889.  dc.w 0,19,40,1
  1890.  dc.w 14,21,12,1
  1891.  dc.w -1
  1892.  
  1893. LEVELDISK_TXT:
  1894. ;      0123456789012345678901234567890123456789
  1895.  dc.b '                                        ' ;0
  1896.  dc.b '                                        ' ;0
  1897.  dc.b '                                        ' ;0
  1898.  dc.b '                                        ' ;0
  1899.  dc.b '                                        ' ;0
  1900.  dc.b '                                        ' ;0
  1901.  dc.b '                                        ' ;0
  1902.  dc.b '                                        ' ;0
  1903.  dc.b '                                        ' ;0
  1904.  dc.b '                                        ' ;0
  1905.  dc.b '                                        ' ;0
  1906.  dc.b '  IF PLAYING FROM DISK, PLEASE INSERT   ' ;0
  1907.  dc.b '       LEVELS DISK IN DRIVE DF0:        ' ;0
  1908.  dc.b '                                        ' ;0
  1909.  dc.b '     PRESS MOUSE BUTTON WHEN READY..    ' ;0
  1910.  dc.b '                                        ' ;0
  1911.  dc.b '                                        ' ;0
  1912.  dc.b '                                        ' ;0
  1913.  dc.b '                                        ' ;0
  1914.  dc.b '                                        ' ;0
  1915.  dc.b '                                        ' ;0
  1916.  dc.b '                                        ' ;0
  1917.  dc.b '                                        ' ;0
  1918.  dc.b '                                        ' ;0
  1919.  dc.b '                                        ' ;0
  1920.  dc.b '                                        ' ;0
  1921.  dc.b '                                        ' ;0
  1922.  dc.b '                                        ' ;0
  1923.  dc.b '                                        ' ;0
  1924.  dc.b '                                        ' ;0
  1925.  dc.b '                                        ' ;0
  1926.  dc.b '                                        ' ;0
  1927.  
  1928.  
  1929. SAVEMENU_TXT: 
  1930. ;      0123456789012345678901234567890123456789
  1931.  dc.b '                                        ' ;0
  1932.  dc.b '                                        ' ;1
  1933.  dc.b '                                        ' ;2
  1934.  dc.b '                                        ' ;3
  1935.  dc.b '         SAVE CURRENT POSITION:         ' ;4
  1936.  dc.b '                                        ' ;5
  1937.  dc.b '                                        ' ;6
  1938.  dc.b '                                        ' ;7
  1939.  dc.b '                                        ' ;8
  1940. SSLOTA:
  1941.  dc.b '                                        ' ;9
  1942.  dc.b '                                        ' ;0
  1943. SSLOTB:
  1944.  dc.b '                                        ' ;1
  1945.  dc.b '                                        ' ;2
  1946. SSLOTC:
  1947.  dc.b '                                        ' ;3
  1948.  dc.b '                                        ' ;4
  1949. SSLOTD:
  1950.  dc.b '                                        ' ;5
  1951.  dc.b '                                        ' ;6
  1952. SSLOTE:
  1953.  dc.b '                                        ' ;7
  1954.  dc.b '                                        ' ;8
  1955. SSLOTF:
  1956.  dc.b '                                        ' ;9
  1957.  dc.b '                                        ' ;0
  1958.  dc.b '               * CANCEL *               ' ;1
  1959.  dc.b '                                        ' ;2
  1960.  dc.b '                                        ' ;3
  1961.  dc.b '                                        ' ;4
  1962.  dc.b '                                        ' ;5
  1963.  dc.b '                                        ' ;6
  1964.  dc.b '                                        ' ;7
  1965.  dc.b '                                        ' ;8
  1966.  dc.b '                                        ' ;9
  1967.  dc.b '                                        ' ;0
  1968.  dc.b '                                        ' ;1
  1969.  
  1970. SAVEMENU_OPTS:
  1971.  dc.w 0,9,40,1
  1972.  dc.w 0,11,40,1
  1973.  dc.w 0,13,40,1
  1974.  dc.w 0,15,40,1
  1975.  dc.w 0,17,40,1
  1976.  dc.w 0,19,40,1
  1977.  dc.w 14,21,12,1
  1978.  dc.w -1
  1979.  
  1980.  
  1981. ASKFORDISK_TXT:
  1982. ;      0123456789012345678901234567890123456789
  1983.  dc.b '                                        ' ;0
  1984.  dc.b '                                        ' ;1
  1985.  dc.b '                                        ' ;2
  1986.  dc.b '                                        ' ;3
  1987.  dc.b '                                        ' ;4
  1988.  dc.b '                                        ' ;5
  1989.  dc.b '                                        ' ;6
  1990.  dc.b '                                        ' ;7
  1991.  dc.b '                                        ' ;8
  1992.  dc.b '                                        ' ;9
  1993.  dc.b '                                        ' ;0
  1994.  dc.b '                                        ' ;1
  1995.  dc.b '                                        ' ;2
  1996.  dc.b '         PLEASE INSERT VOLUME:          ' ;3
  1997.  dc.b '                                        ' ;4
  1998. VOLLINE:
  1999.  dc.b '                                        ' ;9
  2000.  dc.b '                                        ' ;9
  2001.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  2002.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  2003.  dc.b '               FINISHES                 ' ;7
  2004.  dc.b '                                        ' ;8
  2005.  dc.b '                                        ' ;1
  2006.  dc.b '                                        ' ;2
  2007.  dc.b '                                        ' ;3
  2008.  dc.b '                                        ' ;4
  2009.  dc.b '                                        ' ;5
  2010.  dc.b '                                        ' ;6
  2011.  dc.b '                                        ' ;7
  2012.  dc.b '                                        ' ;8
  2013.  dc.b '                                        ' ;9
  2014.  dc.b '                                        ' ;0
  2015.  dc.b '                                        ' ;1
  2016.  
  2017. ASKFORDISK_OPTS:
  2018.  dc.w -1
  2019.  
  2020.  
  2021. ONEPLAYERMENU_TXT:
  2022. ;      0123456789012345678901234567890123456789
  2023.  dc.b '                                        ' ;0
  2024.  dc.b '                                        ' ;1
  2025.  dc.b '                                        ' ;2
  2026.  dc.b '                                        ' ;3
  2027.  dc.b '                                        ' ;4
  2028.  dc.b '                                        ' ;5
  2029.  dc.b '                                        ' ;6
  2030.  dc.b '                                        ' ;7
  2031.  dc.b '                                        ' ;8
  2032.  dc.b '                                        ' ;9
  2033.  dc.b '                                        ' ;0
  2034. CURRENTLEVELLINE:
  2035.  dc.b '         *** A.F DEMO LEVEL ***         ' ;1 
  2036.  dc.b '                                        ' ;2
  2037.  dc.b '                1 PLAYER                ' ;3
  2038.  dc.b '                                        ' ;4
  2039.  dc.b '               PLAY  GAME               ' ;5
  2040.  dc.b '                                        ' ;6
  2041.  dc.b '            CONTROL  OPTIONS            ' ;7
  2042.  dc.b '                                        ' ;8
  2043.  dc.b '              GAME CREDITS              ' ;9
  2044.  dc.b '                                        ' ;0
  2045.  dc.b '             LOAD  POSITION             ' ;1
  2046.  dc.b '                                        ' ;2
  2047. PASSWORDLINE:
  2048.  dc.b '             SAVE  POSITION             ' ;1
  2049.  dc.b '                                        ' ;4
  2050.  dc.b '                  QUIT                  ' ;5
  2051.  dc.b '                                        ' ;6
  2052.  dc.b '                                        ' ;7
  2053.  dc.b '                                        ' ;8
  2054.  dc.b '                                        ' ;9
  2055.  dc.b '                                        ' ;0
  2056.  dc.b '                                        ' ;1
  2057.  
  2058. ONEPLAYERMENU_OPTS:
  2059.  dc.w 0,11,40,1
  2060.  dc.w 16,13,8,1
  2061.  dc.w 15,15,10,1
  2062.  dc.w 12,17,16,1
  2063.  dc.w 14,19,12,1
  2064.  dc.w 12,21,16,1
  2065.  dc.w 12,23,16,1
  2066.  dc.w 18,25,4,1
  2067.  dc.w -1
  2068.  
  2069.  
  2070. MASTERPLAYERMENU_TXT:
  2071. ;      0123456789012345678901234567890123456789
  2072.  dc.b '                                        ' ;0
  2073.  dc.b '                                        ' ;1
  2074.  dc.b '                                        ' ;2
  2075.  dc.b '                                        ' ;3
  2076.  dc.b '                                        ' ;4
  2077.  dc.b '                                        ' ;5
  2078.  dc.b '                                        ' ;6
  2079.  dc.b '                                        ' ;7
  2080.  dc.b '                                        ' ;8
  2081.  dc.b '                                        ' ;9
  2082.  dc.b '                                        ' ;0
  2083.  dc.b '                                        ' ;1
  2084.  dc.b '            2 PLAYER  MASTER            ' ;2
  2085.  dc.b '                                        ' ;3
  2086. CURRENTLEVELLINEM:
  2087.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  2088.  dc.b '                                        ' ;5
  2089.  dc.b '               PLAY  GAME               ' ;6
  2090.  dc.b '                                        ' ;7
  2091.  dc.b '            CONTROL  OPTIONS            ' ;8
  2092.  dc.b '                                        ' ;9
  2093.  dc.b '                                        ' ;0
  2094.  dc.b '                                        ' ;1
  2095.  dc.b '                                        ' ;2
  2096.  dc.b '                                        ' ;3
  2097.  dc.b '                                        ' ;4
  2098.  dc.b '                                        ' ;5
  2099.  dc.b '                                        ' ;6
  2100.  dc.b '                                        ' ;7
  2101.  dc.b '                                        ' ;8
  2102.  dc.b '                                        ' ;9
  2103.  dc.b '                                        ' ;0
  2104.  dc.b '                                        ' ;1
  2105.  
  2106. MASTERPLAYERMENU_OPTS:
  2107.  dc.w 12,12,16,1
  2108.  dc.w 6,14,28,1
  2109.  dc.w 15,16,10,1
  2110.  dc.w 12,18,16,1
  2111.  dc.w -1
  2112.  
  2113. SLAVEPLAYERMENU_TXT:
  2114. ;      0123456789012345678901234567890123456789
  2115.  dc.b '                                        ' ;0
  2116.  dc.b '                                        ' ;1
  2117.  dc.b '                                        ' ;2
  2118.  dc.b '                                        ' ;3
  2119.  dc.b '                                        ' ;4
  2120.  dc.b '                                        ' ;5
  2121.  dc.b '                                        ' ;6
  2122.  dc.b '                                        ' ;7
  2123.  dc.b '                                        ' ;8
  2124.  dc.b '                                        ' ;9
  2125.  dc.b '                                        ' ;9
  2126.  dc.b '                                        ' ;1
  2127.  dc.b '             2 PLAYER SLAVE             ' ;4
  2128.  dc.b '                                        ' ;3
  2129.  dc.b '               PLAY  GAME               ' ;2
  2130.  dc.b '                                        ' ;5
  2131.  dc.b '            CONTROL  OPTIONS            ' ;0
  2132.  dc.b '                                        ' ;1
  2133.  dc.b '                                        ' ;3
  2134.  dc.b '                                        ' ;7
  2135.  dc.b '                                        ' ;7
  2136.  dc.b '                                        ' ;3
  2137.  dc.b '                                        ' ;3
  2138.  dc.b '                                        ' ;3
  2139.  dc.b '                                        ' ;4
  2140.  dc.b '                                        ' ;5
  2141.  dc.b '                                        ' ;6
  2142.  dc.b '                                        ' ;7
  2143.  dc.b '                                        ' ;9
  2144.  dc.b '                                        ' ;9
  2145.  dc.b '                                        ' ;9
  2146.  dc.b '                                        ' ;9
  2147.  
  2148.  
  2149. PROTMENU_TXT:
  2150. ;      0123456789012345678901234567890123456789
  2151.  dc.b '                                        ' ;0
  2152.  dc.b '                                        ' ;1
  2153.  dc.b '                                        ' ;2
  2154.  dc.b '                                        ' ;3
  2155.  dc.b '                                        ' ;4
  2156.  dc.b '                                        ' ;5
  2157.  dc.b '                                        ' ;6
  2158.  dc.b '                                        ' ;7
  2159.  dc.b '                                        ' ;8
  2160.  dc.b '                                        ' ;9
  2161.  dc.b '                                        ' ;0
  2162.  dc.b '                                        ' ;1
  2163.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  2164.  dc.b '                                        ' ;3
  2165. PROTLINE:
  2166.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  2167.  dc.b '                                        ' ;5
  2168.  dc.b '                                        ' ;6
  2169.  dc.b '                                        ' ;7
  2170.  dc.b '                                        ' ;8
  2171.  dc.b '                                        ' ;9
  2172.  dc.b '                                        ' ;0
  2173.  dc.b '                                        ' ;1
  2174.  dc.b '                                        ' ;2
  2175.  dc.b '                                        ' ;3
  2176.  dc.b '                                        ' ;4
  2177.  dc.b '                                        ' ;5
  2178.  dc.b '                                        ' ;6
  2179.  dc.b '                                        ' ;7
  2180.  dc.b '                                        ' ;9
  2181.  dc.b '                                        ' ;0
  2182.  dc.b '                                        ' ;1
  2183.  
  2184.  
  2185.  
  2186. SLAVEPLAYERMENU_OPTS:
  2187.  dc.w 12,12,16,1
  2188.  dc.w 15,14,10,1
  2189.  dc.w 12,16,16,1
  2190.  dc.w -1
  2191.  
  2192.  
  2193. PLAYER_OPTS:
  2194. ;      0123456789012345678901234567890123456789
  2195.  dc.b '                 1 PLAYER               '
  2196.  dc.b '             2  PLAYER MASTER           '
  2197.  dc.b '              2 PLAYER SLAVE            '
  2198.  
  2199. LEVEL_OPTS:
  2200. ;      0123456789012345678901234567890123456789
  2201.  dc.b  '       CU AMIGA *EXCLUSIVE* DEMO        '
  2202.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  2203.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  2204.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  2205.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  2206.  dc.b '      LEVEL  6 :         THE MINES      '
  2207.  dc.b '      LEVEL  7 :       THE FURNACE      '
  2208.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  2209.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  2210.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  2211.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  2212.  dc.b '      LEVEL 12 :           THE PIT      '
  2213.  dc.b '      LEVEL 13 :            STRATA      '
  2214.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  2215.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  2216.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  2217.  
  2218. CONTROL_TXT:
  2219. ;      0123456789012345678901234567890123456789
  2220.  dc.b '                                        ' ;0
  2221.  dc.b '                                        ' ;1
  2222.  dc.b '            DEFINE  CONTROLS            ' ;2
  2223.  dc.b '                                        ' ;3
  2224. KEY_LINES:
  2225.  dc.b '     TURN LEFT                  LCK     ' ;4
  2226.  dc.b '     TURN RIGHT                 RCK     ' ;5
  2227.  dc.b '     FORWARDS                   UCK     ' ;6
  2228.  dc.b '     BACKWARDS                  DCK     ' ;7
  2229.  dc.b '     FIRE                       RAL     ' ;8
  2230.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;9
  2231.  dc.b '     RUN                        RSH     ' ;0
  2232.  dc.b '     FORCE SIDESTEP             RAM     ' ;1
  2233.  dc.b '     SIDESTEP LEFT               .      ' ;2
  2234.  dc.b '     SIDESTEP RIGHT              /      ' ;3
  2235.  dc.b '     DUCK                        D      ' ;4
  2236.  dc.b '     LOOK BEHIND                 L      ' ;5
  2237.  dc.b '     JUMP                       KP0     ' ;6
  2238.  dc.b '     LOOK UP                     ]      ' ;7
  2239.  dc.b '     LOOK DOWN                   #      ' ;8
  2240.  dc.b '                                        ' ;9
  2241.  dc.b '             OTHER CONTROLS             ' ;0
  2242.  dc.b '                                        ' ;1
  2243.  dc.b '1-0   Select Weapon P              Pause' ;2
  2244.  dc.b 'F1   Zoom in on map F3 4/8 Channel Sound' ;3
  2245.  dc.b 'F2  Zoom out on map F4 Mono/Stereo Sound' ;4
  2246.  dc.b '    Keypad 1-9 scroll map, 5 centres    ' ;5
  2247.  dc.b '                                        ' ;6
  2248.  dc.b '                                        ' ;7
  2249.  dc.b '               MAIN  MENU               ' ;8
  2250.  dc.b '                                        ' ;9
  2251.  dc.b '                                        ' ;0
  2252.  dc.b '                                        ' ;1
  2253.  
  2254. CONTROL_OPTS:
  2255.  dc.w 5,4,30,1
  2256.  dc.w 5,5,30,1
  2257.  dc.w 5,6,30,1
  2258.  dc.w 5,7,30,1
  2259.  dc.w 5,8,30,1
  2260.  dc.w 5,9,30,1
  2261.  dc.w 5,10,30,1
  2262.  dc.w 5,11,30,1
  2263.  dc.w 5,12,30,1
  2264.  dc.w 5,13,30,1
  2265.  dc.w 5,14,30,1
  2266.  dc.w 5,15,30,1
  2267.  dc.w 5,16,30,1
  2268.  dc.w 5,17,30,1
  2269.  dc.w 5,18,30,1
  2270.  dc.w 15,28,10,1
  2271.  dc.w -1
  2272.  
  2273. PLOPT: dc.w 0
  2274.  
  2275. INSTRUCTIONS_TXT:
  2276. ;      0123456789012345678901234567890123456789
  2277.  dc.b 'Main controls:                          ' ;1
  2278.  dc.b '                                        ' ;2
  2279.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  2280.  dc.b '            Turn left / right           ' ;4
  2281.  dc.b '          Right Alt = Fire              ' ;5
  2282.  dc.b '        Right Shift = Run               ' ;6
  2283.  dc.b '                  > = Slide Left        ' ;7
  2284.  dc.b '                  ? = Slide Right       ' ;8
  2285.  dc.b '              SPACE = Operate Door/Lift ' ;9
  2286.  dc.b '                  D = Duck              ' ;0
  2287.  dc.b '                  J = Joystick Control  ' ;1
  2288.  dc.b '                  K = Keyboard Control  ' ;2
  2289.  dc.b '                                        ' ;3
  2290.  dc.b '              1,2,3 = Select weapon     ' ;4
  2291.  dc.b '              ENTER = Toggle screen size' ;5
  2292.  dc.b '                ESC = Quit              ' ;6
  2293.  dc.b '                                        ' ;7
  2294.  dc.b '                                        ' ;8
  2295.  dc.b 'The one player game has no objective and' ;9
  2296.  dc.b 'the only way to finish is to die or quit' ;0
  2297.  dc.b '                                        ' ;1
  2298.  dc.b 'The two-player game is supposed to be a ' ;2
  2299.  dc.b 'fight to the death but will probably be ' ;3
  2300.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  2301.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  2302.  dc.b '                                        ' ;6
  2303.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  2304.  dc.b 'have glowing red walls and overhead     ' ;8
  2305.  dc.b 'lights. Useful for getting behind your  ' ;9
  2306.  dc.b ' opponent!                              ' ;0
  2307.  dc.b '  Just a taster of what is to come....  ' ;1
  2308.  dc.b '                                        ' ;0
  2309.  
  2310. INSTRUCTIONS_OPTS:
  2311.  dc.w 0,0,0,1
  2312.  dc.w -1
  2313.  
  2314. CREDITMENU_TXT:
  2315.  
  2316. ;      0123456789012345678901234567890123456789
  2317.  dc.b '    Programming, Game Code, Graphics    ' ;0
  2318.  dc.b '         Game Design and Manual         ' ;1
  2319.  dc.b '            Andrew Clitheroe            ' ;2
  2320.  dc.b '                                        ' ;3
  2321.  dc.b '       Alien and Scenery Graphics       ' ;4
  2322.  dc.b '             Michael  Green             ' ;5
  2323.  dc.b '                                        ' ;6
  2324.  dc.b '           3D Object Designer           ' ;7
  2325.  dc.b '            Charles Blessing            ' ;8
  2326.  dc.b '                                        ' ;9
  2327.  dc.b '              Level Design              ' ;0
  2328.  dc.b 'Jackie Lang   Michael Green  Ben Chanter' ;1
  2329.  dc.b '                                        ' ;3
  2330.  dc.b '                                        ' ;3
  2331.  dc.b '           Creative  Director           ' ;4
  2332.  dc.b '              Martyn Brown              ' ;5
  2333.  dc.b '                                        ' ;6
  2334.  dc.b '       Project Manager and Manual       ' ;7
  2335.  dc.b '      "Lazy" Phil Quirke-Webster        ' ;8
  2336.  dc.b '                                        ' ;9
  2337.  dc.b '                 Music                  ' ;0
  2338.  dc.b '           Ben "666" Chanter            ' ;1
  2339.  dc.b '                                        ' ;2
  2340.  dc.b '      Cover Illustration and Logo       ' ;3
  2341.  dc.b '             Kevin Jenkins              ' ;4
  2342.  dc.b '                                        ' ;5
  2343.  dc.b '      Packaging and Manual Design       ' ;6
  2344.  dc.b '               Paul Sharp               ' ;7
  2345.  dc.b '                                        ' ;8
  2346.  dc.b '             QA and Playtest            ' ;9
  2347.  dc.b '           Phil and The Wolves          ' ;0
  2348.  dc.b '                                        ' ;1
  2349.  
  2350.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  2351.  dc.b '                   by                   ' ;5
  2352.  dc.b '            Charles Blessing            ' ;6
  2353.  dc.b '                                        ' ;7
  2354.  dc.b '                Graphics:               ' ;8
  2355.  dc.b '                   by                   ' ;9
  2356.  dc.b '              Mike  Oakley              ' ;0
  2357.  dc.b '                                        ' ;1
  2358.  dc.b '             Title  Picture             ' ;2
  2359.  dc.b '                   by                   ' ;3
  2360.  dc.b '               Mike Green               ' ;4
  2361.  dc.b '                                        ' ;5
  2362.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2363.  dc.b '     level design and plenty of tea     ' ;7
  2364.  dc.b '         generously supplied by         ' ;8
  2365.  dc.b '                                        ' ;9
  2366.  dc.b '              Jackie  Lang              ' ;0
  2367.  dc.b '                                        ' ;1
  2368.  dc.b '    Music for the last demo composed    ' ;2
  2369.  dc.b '       by the inexpressibly evil:       ' ;3
  2370.  dc.b '                                        ' ;8
  2371.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2372.  dc.b '                                        ' ;0
  2373.  dc.b '    Sadly no room for music this time   ' ;1
  2374.  dc.b '                                        ' ;7
  2375.  dc.b '                                        ' ;7
  2376.  
  2377. CREDITMENU_OPTS:
  2378.  dc.w 0,0,1,1
  2379.  dc.w -1
  2380.  
  2381.  
  2382. ;      0123456789012345678901234567890123456789
  2383.  dc.b '                                        ' ;0
  2384.  dc.b '                                        ' ;1
  2385.  dc.b '                                        ' ;2
  2386.  dc.b '                                        ' ;3
  2387.  dc.b '                                        ' ;4
  2388.  dc.b '                                        ' ;5
  2389.  dc.b '                                        ' ;6
  2390.  dc.b '                                        ' ;7
  2391.  dc.b '                                        ' ;8
  2392.  dc.b '                                        ' ;9
  2393.  dc.b '                                        ' ;0
  2394.  dc.b '                                        ' ;1
  2395.  dc.b '                                        ' ;2
  2396.  dc.b '                                        ' ;3
  2397.  dc.b '                                        ' ;4
  2398.  dc.b '                                        ' ;5
  2399.  dc.b '                                        ' ;6
  2400.  dc.b '                                        ' ;7
  2401.  dc.b '                                        ' ;8
  2402.  dc.b '                                        ' ;9
  2403.  dc.b '                                        ' ;0
  2404.  dc.b '                                        ' ;1
  2405.  dc.b '                                        ' ;2
  2406.  dc.b '                                        ' ;3
  2407.  dc.b '                                        ' ;4
  2408.  dc.b '                                        ' ;5
  2409.  dc.b '                                        ' ;6
  2410.  dc.b '                                        ' ;7
  2411.  dc.b '                                        ' ;8
  2412.  dc.b '                                        ' ;9
  2413.  dc.b '                                        ' ;0
  2414.  dc.b '                                        ' ;1
  2415.  
  2416.  
  2417. ********************************************************
  2418.  
  2419. PUTIN32:
  2420.  move.w #31,d2
  2421. p32loop:
  2422.  moveq #0,d5
  2423.  move.l (a0)+,d3
  2424.  move.w d3,d4
  2425.  swap d3
  2426.  move.b d4,d5
  2427.  lsr.w #8,d4
  2428.  
  2429.  muls d0,d3
  2430.  muls d0,d4
  2431.  muls d0,d5
  2432.  lsr.l #8,d3
  2433.  lsr.l #8,d4
  2434.  lsr.l #8,d5
  2435.  move.w d3,d6
  2436.  swap d3
  2437.  move.w d6,d3
  2438.  move.w d4,d6
  2439.  swap d4
  2440.  move.w d6,d4
  2441.  move.w d5,d6
  2442.  swap d5
  2443.  move.w d6,d5
  2444.  and.w #%11110000,d3
  2445.  and.w #%11110000,d4
  2446.  and.w #%11110000,d5
  2447.  lsl.w #4,d3
  2448.  add.w d4,d3
  2449.  lsr.w #4,d5
  2450.  add.w d5,d3
  2451.  move.w d3,2(a1)
  2452.  swap d3
  2453.  swap d4
  2454.  swap d5
  2455.  and.w #%1111,d3
  2456.  and.w #%1111,d4
  2457.  and.w #%1111,d5
  2458.  lsl.w #8,d3
  2459.  lsl.w #4,d4
  2460.  add.w d4,d3
  2461.  add.w d5,d3
  2462.  move.w d3,2+(132*4)(a1)
  2463.  addq #4,a1
  2464.  dbra d2,p32loop
  2465.  
  2466.  
  2467.  rts
  2468.  
  2469. **************************************
  2470.  
  2471. FADEAMOUNT: dc.w 0
  2472. FADEVAL: dc.w 0
  2473.  
  2474. FADEUPTITLE:
  2475.  
  2476.  move.w FADEVAL,d0
  2477.  move.w FADEAMOUNT,d1
  2478. fadeuploop:
  2479.  
  2480.  move.l #TITLEPAL,a0
  2481.  move.l #TITLEPALCOP,a1
  2482.  
  2483. wvb:
  2484.  btst #5,$dff000+intreqrl
  2485.  beq.s wvb
  2486.  move.w #$20,$dff000+intreq 
  2487.  
  2488.  bsr PUTIN32
  2489.  add.w #4,a1
  2490.  bsr PUTIN32
  2491.  add.w #4,a1
  2492.  bsr PUTIN32
  2493.  add.w #4,a1
  2494.  bsr PUTIN32
  2495.  
  2496.  addq.w #8,d0
  2497.  dbra d1,fadeuploop
  2498.  
  2499.  subq #8,d0
  2500.  move.w d0,FADEVAL
  2501.  
  2502.  rts
  2503.  
  2504. CLEARTITLEPAL:
  2505.  PRSDP
  2506.  move.l #TITLEPALCOP,a0
  2507.  move.w #7,d1
  2508. clrpal:
  2509.  move.w #31,d0
  2510. clr32
  2511.  move.w #0,2(a0)
  2512.  addq #4,a0
  2513.  dbra d0,clr32
  2514.  addq #4,a0
  2515.  dbra d1,clrpal
  2516.  PRSDQ
  2517.  rts
  2518.  
  2519. FADEDOWNTITLE:
  2520.  
  2521.  move.w FADEVAL,d0
  2522.  move.w FADEAMOUNT,d1
  2523. fadedownloop:
  2524.  
  2525.  move.l #TITLEPAL,a0
  2526.  move.l #TITLEPALCOP,a1
  2527.  
  2528. .wvb:
  2529.  btst #5,$dff000+intreqrl
  2530.  beq.s .wvb
  2531.  move.w #$20,$dff000+intreq 
  2532.  
  2533.  bsr PUTIN32
  2534.  add.w #4,a1
  2535.  bsr PUTIN32
  2536.  add.w #4,a1
  2537.  bsr PUTIN32
  2538.  add.w #4,a1
  2539.  bsr PUTIN32
  2540.  
  2541.  subq.w #8,d0
  2542.  dbra d1,fadedownloop
  2543.  
  2544.  addq #8,d0
  2545.  move.w d0,FADEVAL
  2546.  
  2547.  rts
  2548.  
  2549. LOADTITLESCRN2:
  2550.  
  2551.  
  2552.  move.l #MEMF_CLEAR,d1
  2553.  move.l #52400,d0
  2554.  move.l 4.w,a6
  2555.  jsr    _LVOAllocMem(a6)
  2556.  tst.l  d0
  2557.  beq    .nomem
  2558.  
  2559.  move.l d0,tempptr
  2560.  
  2561.  move.l TITLESCRNPTR,d1
  2562.  move.l #1005,d2
  2563.  move.l doslib,a6
  2564.  jsr -30(a6)
  2565.  move.l d0,handle
  2566.  move.l d0,d1
  2567.  move.l doslib,a6
  2568. ; move.l TITLESCRNADDR,d2
  2569.  move.l tempptr,d2
  2570.  move.l #10240*7,d3
  2571.  jsr -42(a6)
  2572.  move.l doslib,a6
  2573.  move.l handle,d1
  2574.  jsr -36(a6)
  2575.  
  2576.     
  2577.  move.l TITLESCRNADDR,a0
  2578.  move.l tempptr,d0
  2579.  
  2580.  moveq #0,d1
  2581.  lea WorkSpace,a1
  2582.  lea $0,a2
  2583.  jsr unLHA
  2584.  
  2585.  move.l tempptr,a1
  2586.  move.l #52400,d0
  2587.  CALLEXEC FreeMem
  2588.   
  2589. .nomem
  2590.  
  2591.  rts
  2592.  
  2593. tempptr dc.l 0
  2594.  
  2595.  
  2596. GETTITLEMEM:
  2597.  move.l #2,d1
  2598.  move.l #10240*7,d0
  2599.  move.l 4.w,a6
  2600.  jsr -198(a6)
  2601.  move.l d0,TITLESCRNADDR
  2602.  
  2603.  move.l #$dff000-$2cdfe4,a4
  2604.  
  2605.  move.l #2,d1
  2606.  move.l #258*16*5,d0
  2607.  move.l 4.w,a6
  2608.  jsr -198(a6)
  2609.  move.l d0,OPTSPRADDR
  2610.  
  2611.  rts
  2612.  
  2613. ProtChkJLev1:
  2614.  
  2615. PROTSETUP:
  2616.  incbin "ab3:includes/protsetupenc"
  2617.  
  2618. ; Need to: Decode protection calling
  2619. ; routine
  2620. ; use null values to call it and erase
  2621. ; it from memory
  2622. ; erase this routine and return.
  2623.  
  2624. ; include "ab3:source/protsetup"
  2625.  
  2626.  
  2627. RELEASETITLEMEM:
  2628.  move.l TITLESCRNADDR,d1
  2629.  move.l d1,a1
  2630.  move.l #10240*7,d0
  2631.  move.l 4.w,a6
  2632.  jsr -210(a6)
  2633.  
  2634.  move.l OPTSPRADDR,d1
  2635.  move.l d1,a1
  2636.  move.l #258*80,d0
  2637.  move.l 4.w,a6
  2638.  jsr -210(a6)
  2639.  rts
  2640.  
  2641.  
  2642. PROTCALLENC:
  2643. ; incbin "ab3:source/protcallenc.bin
  2644.  
  2645. ; one pass, all instructions executed.
  2646. ; must call protection routine,store
  2647. ; value somewhere, call ask routine,
  2648. ; compare returned value, if correct
  2649. ; set up all values, then return.
  2650.  
  2651. ; include "ab3:source_4000/protcallenc"
  2652.  
  2653. ENDPROT:
  2654.  
  2655. LOADTITLESCRN:
  2656.  
  2657.  move.l #TITLESCRNNAME,d1
  2658.  move.l #1005,d2
  2659.  move.l doslib,a6
  2660.  jsr -30(a6)
  2661.  move.l d0,handle
  2662.  move.l d0,d1
  2663.  move.l doslib,a6
  2664.  move.l TITLESCRNADDR,d2
  2665.  move.l #10240*7,d3
  2666.  jsr -42(a6)
  2667.  move.l doslib,a6
  2668.  move.l handle,d1
  2669.  jsr -36(a6)
  2670.  
  2671.  rts
  2672.  
  2673. RVAL2: dc.w 0
  2674.  
  2675. SETUPTITLESCRN:
  2676.  
  2677.  PRSDR
  2678.  move.l #OPTCOP,a0
  2679.  move.l #rain,a1
  2680.  move.w #255,d0
  2681. putinrain:
  2682.  move.w (a1)+,d1
  2683.  move.w d1,6(a0)
  2684.  move.w d1,6+4(a0)
  2685.  move.w d1,6+8(a0)
  2686.  move.w d1,6+12(a0)
  2687.  add.w #4*14,a0
  2688.  
  2689.  dbra d0,putinrain
  2690.  
  2691. ; Put addr into copper.
  2692.  move.l OPTSPRADDR,d0
  2693.  move.w d0,tsp0l
  2694.  swap d0
  2695.  move.w d0,tsp0h
  2696.  swap d0
  2697.  add.l #258*16,d0
  2698.  move.w d0,tsp1l
  2699.  swap d0
  2700.  move.w d0,tsp1h
  2701.  swap d0
  2702.  add.l #258*16,d0
  2703.  move.w d0,tsp2l
  2704.  swap d0
  2705.  move.w d0,tsp2h
  2706.  swap d0
  2707.  add.l #258*16,d0
  2708.  move.w d0,tsp3l
  2709.  swap d0
  2710.  move.w d0,tsp3h
  2711.  swap d0
  2712.  add.l #258*16,d0
  2713.  move.w d0,tsp4l
  2714.  swap d0
  2715.  move.w d0,tsp4h
  2716.  
  2717.  move.l #nullspr,d0
  2718.  move.w d0,tsp5l
  2719.  move.w d0,tsp6l
  2720.  move.w d0,tsp7l
  2721.  swap d0
  2722.  move.w d0,tsp5h
  2723.  move.w d0,tsp6h
  2724.  move.w d0,tsp7h 
  2725.  
  2726.  move.l TITLESCRNADDR,d0
  2727.  move.w d0,ts1l
  2728.  swap d0
  2729.  move.w d0,ts1h
  2730.  swap d0
  2731.  add.l #10240,d0
  2732.  move.w d0,ts2l
  2733.  swap d0
  2734.  move.w d0,ts2h
  2735.  swap d0
  2736.  add.l #10240,d0
  2737.  move.w d0,ts3l
  2738.  swap d0
  2739.  move.w d0,ts3h
  2740.  swap d0
  2741.  add.l #10240,d0
  2742.  move.w d0,ts4l
  2743.  swap d0
  2744.  move.w d0,ts4h
  2745.  swap d0
  2746.  add.l #10240,d0
  2747.  move.w d0,ts5l
  2748.  swap d0
  2749.  move.w d0,ts5h
  2750.  swap d0
  2751.  add.l #10240,d0
  2752.  move.w d0,ts6l
  2753.  swap d0
  2754.  move.w d0,ts6h
  2755.  swap d0
  2756.  add.l #10240,d0
  2757.  move.w d0,ts7l
  2758.  swap d0
  2759.  move.w d0,ts7h
  2760.  rts 
  2761.  
  2762. RVAL1: dc.w 0
  2763.  
  2764. DummyAdds:
  2765.  dc.l dummy-78935450
  2766.  dc.l dummy-78935450
  2767.  dc.l dummy-78935450
  2768.  dc.l dummy-78935450
  2769.  dc.l dummy-78935450
  2770.  dc.l dummy-78935450
  2771.  dc.l dummy-78935450
  2772.  dc.l dummy-78935450
  2773.  dc.l dummy-78935450
  2774.  dc.l dummy-78935450
  2775.  
  2776. dummycall
  2777.  dc.w $4e75-123
  2778.  
  2779. protspace: 
  2780.  ;ds.l 200
  2781.  
  2782.  include "ab3:CHEESESAUCE/LEVEL_BLURB"
  2783.  
  2784. font:
  2785.  incbin "OptFont"
  2786.  
  2787. rain: incbin "optcop"
  2788.